home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-02
/
mouser.zip
/
MOUSDEMO.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-01-04
|
1KB
|
39 lines
program mousedemo;
uses
crt,
dos,
mouser;
var
movement : mousemove;
button_press : boolean;
done : boolean;
begin
movement.xmouse := 0;
movement.ymouse := 0;
if mouseready then
begin
done := false;
writeln(output, numberbutton:10);
while (not(done)) do
begin
if (questionmouse) then
begin
if mousebuttonpressed then
begin
writeln(output, leftbutton:10, centerbutton:10, rightbutton:10);
if centerbutton or rightbutton then
done := true;
end;
mousemoved(movement);
writeln(output, movement.xmouse:10, movement.ymouse:10);
end;
end;
end
else
begin
writeln(output, 'MOUSE not functioning properly');
writeln(output, 'Please check mouse and try again');
end;
end.